home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nagscrn / frmtimr2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-06-15  |  6.9 KB  |  203 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTimr2 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Closing Nag Screen"
  6.    ClientHeight    =   4260
  7.    ClientLeft      =   2295
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6150
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4665
  22.    Left            =   2235
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4260
  27.    ScaleWidth      =   6150
  28.    Top             =   1140
  29.    Width           =   6270
  30.    Begin VB.Timer Timer1 
  31.       Interval        =   500
  32.       Left            =   45
  33.       Top             =   4275
  34.    End
  35.    Begin Threed.SSPanel pnlMain2 
  36.       Height          =   4260
  37.       Left            =   -15
  38.       TabIndex        =   0
  39.       Top             =   0
  40.       Width           =   6165
  41.       _version        =   65536
  42.       _extentx        =   10874
  43.       _extenty        =   7514
  44.       _stockprops     =   15
  45.       backcolor       =   -2147483633
  46.       bevelouter      =   0
  47.       alignment       =   0
  48.       Begin Threed.SSPanel pnlExit 
  49.          Height          =   630
  50.          Left            =   4185
  51.          TabIndex        =   4
  52.          Top             =   3210
  53.          Width           =   1710
  54.          _version        =   65536
  55.          _extentx        =   3016
  56.          _extenty        =   1111
  57.          _stockprops     =   15
  58.          backcolor       =   -2147483633
  59.          bevelouter      =   0
  60.          bevelinner      =   1
  61.          alignment       =   0
  62.          Begin Threed.SSCommand btnExit 
  63.             Height          =   510
  64.             Left            =   60
  65.             TabIndex        =   5
  66.             Top             =   60
  67.             Width           =   1590
  68.             _version        =   65536
  69.             _extentx        =   2805
  70.             _extenty        =   900
  71.             _stockprops     =   78
  72.             caption         =   "Exit"
  73.             BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  74.                name            =   "MS Sans Serif"
  75.                charset         =   1
  76.                weight          =   400
  77.                size            =   8.25
  78.                underline       =   0   'False
  79.                italic          =   0   'False
  80.                strikethrough   =   0   'False
  81.             EndProperty
  82.          End
  83.       End
  84.       Begin Threed.SSFrame fraCopy 
  85.          Height          =   570
  86.          Left            =   345
  87.          TabIndex        =   2
  88.          Top             =   2100
  89.          Width           =   5550
  90.          _version        =   65536
  91.          _extentx        =   9790
  92.          _extenty        =   1005
  93.          _stockprops     =   14
  94.          forecolor       =   0
  95.          BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  96.             name            =   "MS Sans Serif"
  97.             charset         =   1
  98.             weight          =   400
  99.             size            =   8.25
  100.             underline       =   0   'False
  101.             italic          =   0   'False
  102.             strikethrough   =   0   'False
  103.          EndProperty
  104.          Begin VB.Label lblCopy 
  105.             Appearance      =   0  'Flat
  106.             BackColor       =   &H80000005&
  107.             Caption         =   "Display all Copyright and Trademark notices again."
  108.             BeginProperty Font 
  109.                name            =   "MS Sans Serif"
  110.                charset         =   1
  111.                weight          =   400
  112.                size            =   8.25
  113.                underline       =   0   'False
  114.                italic          =   0   'False
  115.                strikethrough   =   0   'False
  116.             EndProperty
  117.             ForeColor       =   &H80000008&
  118.             Height          =   195
  119.             Left            =   1035
  120.             TabIndex        =   3
  121.             Top             =   225
  122.             Width           =   3570
  123.          End
  124.       End
  125.       Begin Threed.SSPanel pnlMessage 
  126.          Height          =   1590
  127.          Left            =   300
  128.          TabIndex        =   1
  129.          Top             =   285
  130.          Width           =   5610
  131.          _version        =   65536
  132.          _extentx        =   9895
  133.          _extenty        =   2805
  134.          _stockprops     =   15
  135.          caption         =   $"FRMTIMR2.frx":0000
  136.          backcolor       =   -2147483633
  137.          BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  138.             name            =   "MS Sans Serif"
  139.             charset         =   1
  140.             weight          =   400
  141.             size            =   8.25
  142.             underline       =   0   'False
  143.             italic          =   0   'False
  144.             strikethrough   =   0   'False
  145.          EndProperty
  146.          bevelouter      =   0
  147.          bevelinner      =   1
  148.          alignment       =   0
  149.       End
  150.       Begin VB.Label lblTimr2 
  151.          Alignment       =   2  'Center
  152.          Appearance      =   0  'Flat
  153.          BackColor       =   &H00000000&
  154.          ForeColor       =   &H0000FF00&
  155.          Height          =   330
  156.          Left            =   2940
  157.          TabIndex        =   7
  158.          Top             =   3375
  159.          Width           =   375
  160.       End
  161.       Begin VB.Label lblTimr1 
  162.          Appearance      =   0  'Flat
  163.          BackColor       =   &H00000000&
  164.          ForeColor       =   &H80000008&
  165.          Height          =   870
  166.          Left            =   2490
  167.          TabIndex        =   6
  168.          Top             =   3075
  169.          Width           =   1290
  170.       End
  171.    End
  172. Attribute VB_Name = "frmTimr2"
  173. Attribute VB_Creatable = False
  174. Attribute VB_Exposed = False
  175. 'Flash Windows title bar.
  176. Private Declare Function FlashWindow Lib "User" (ByVal hWnd%, ByVal bInvert%) As Integer
  177. 'Variable for timer event.
  178. Dim C As Double
  179. Private Sub btnExit_Click()
  180. Unload Me
  181. End Sub
  182. Private Sub Form_Load()
  183.     'Appearance of screen when it loads.
  184.     pnlExit.Visible = False
  185.     btnExit.Visible = False
  186.     C = Now
  187.     Left = (Screen.Width - Width) \ 2
  188.     Top = (Screen.Height - Height) \ 2
  189. End Sub
  190. Private Sub Timer1_Timer()
  191. ' Flash title bar of nag screen.
  192. I = FlashWindow(frmTimr2.hWnd, 1)
  193. ' Display timer for 5 seconds. After 5 seconds
  194. ' Exit button is displayed.
  195. Const TM_STOP = 5 'Changing this number will change the length of time a screen stays up.
  196. lblTimr2.Caption = Format$(Now - C, "ss")
  197. If Val(Format$(Now - C, "ss")) >= TM_STOP Then
  198. Timer1.Enabled = False
  199. btnExit.Visible = True
  200. pnlExit.Visible = True
  201. End If
  202. End Sub
  203.